/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Apple II / System Software (8-bit) / System.4.0.2 / UTILITIES / CLOCK.PATCH

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 32 08 01 00 b2 20 50 72 | 6f 44 4f 53 20 38 20 54 |2.... Pr|oDOS 8 T|
|00000010| 68 75 6e 64 65 72 43 6c | 6f 63 6b 20 44 72 69 76 |hunderCl|ock Driv|
|00000020| 65 72 20 50 61 74 63 68 | 20 55 74 69 6c 69 74 79 |er Patch| Utility|
|00000030| 00 50 08 02 00 b2 20 57 | 72 69 74 74 65 6e 20 62 |.P.... W|ritten b|
|00000040| 79 20 47 72 65 67 20 42 | 72 61 6e 63 68 65 00 82 |y Greg B|ranche..|
|00000050| 08 03 00 b2 20 43 6f 70 | 79 72 69 67 68 74 20 28 |.... Cop|yright (|
|00000060| 63 29 20 31 39 39 31 2d | 39 33 2c 20 41 70 70 6c |c) 1991-|93, Appl|
|00000070| 65 20 43 6f 6d 70 75 74 | 65 72 2c 20 49 6e 63 2e |e Comput|er, Inc.|
|00000080| 00 9c 08 04 00 b2 20 41 | 6c 6c 20 52 69 67 68 74 |...... A|ll Right|
|00000090| 73 20 52 65 73 65 72 76 | 65 64 00 a2 08 05 00 3a |s Reserv|ed.....:|
|000000a0| 00 dd 08 06 00 b2 4d 6f | 64 69 66 69 65 64 20 66 |......Mo|dified f|
|000000b0| 6f 72 20 50 72 6f 44 4f | 53 20 38 20 32 2e 30 2e |or ProDO|S 8 2.0.|
|000000c0| 32 2c 20 32 2d 4e 6f 76 | 2d 39 32 20 44 41 4c 20 |2, 2-Nov|-92 DAL |
|000000d0| 28 6c 69 6e 65 20 32 33 | 37 30 29 00 39 09 07 00 |(line 23|70).9...|
|000000e0| b2 4d 6f 64 69 66 69 65 | 64 20 66 6f 72 20 50 72 |.Modifie|d for Pr|
|000000f0| 6f 44 4f 53 20 38 20 32 | 2e 30 2e 33 2c 20 32 34 |oDOS 8 2|.0.3, 24|
|00000100| 2d 4d 61 72 2d 39 33 20 | 44 41 4c 20 28 32 33 37 |-Mar-93 |DAL (237|
|00000110| 30 20 61 67 61 69 6e 29 | 2c 20 66 69 78 65 64 20 |0 again)|, fixed |
|00000120| 61 20 32 30 30 30 20 62 | 75 67 20 69 6e 20 6c 69 |a 2000 b|ug in li|
|00000130| 6e 65 20 31 35 36 30 00 | 3f 09 09 00 3a 00 6e 09 |ne 1560.|?...:.n.|
|00000140| 0a 00 b2 20 54 68 69 73 | 20 70 72 6f 67 72 61 6d |... This| program|
|00000150| 20 61 6c 6c 6f 77 73 20 | 61 20 75 73 65 72 20 74 | allows |a user t|
|00000160| 6f 20 6d 6f 64 69 66 79 | 20 74 68 65 00 9b 09 0b |o modify| the....|
|00000170| 00 b2 20 74 61 62 6c 65 | 20 6f 66 20 79 65 61 72 |.. table| of year|
|00000180| 20 76 61 6c 75 65 73 20 | 73 74 6f 72 65 64 20 77 | values |stored w|
|00000190| 69 74 68 69 6e 20 74 68 | 65 00 c7 09 0c 00 b2 20 |ithin th|e...... |
|000001a0| 54 68 75 6e 64 65 72 43 | 6c 6f 63 6b 20 64 72 69 |ThunderC|lock dri|
|000001b0| 76 65 72 2c 20 74 68 65 | 72 65 62 79 20 61 6c 6c |ver, the|reby all|
|000001c0| 6f 77 69 6e 67 00 f1 09 | 0d 00 b2 20 74 68 65 20 |owing...|... the |
|000001d0| 64 72 69 76 65 72 20 74 | 6f 20 63 61 6c 63 75 6c |driver t|o calcul|
|000001e0| 61 74 65 20 74 68 65 20 | 63 6f 72 72 65 63 74 00 |ate the |correct.|
|000001f0| 1b 0a 0e 00 b2 20 76 61 | 6c 75 65 20 62 61 73 65 |..... va|lue base|
|00000200| 64 20 6f 6e 20 6d 6f 6e | 74 68 2c 20 64 61 79 2c |d on mon|th, day,|
|00000210| 20 61 6e 64 20 64 61 79 | 2d 00 47 0a 0f 00 b2 20 | and day|-.G.... |
|00000220| 6f 66 2d 77 65 65 6b 2e | 20 20 54 68 65 20 74 61 |of-week.|  The ta|
|00000230| 62 6c 65 20 63 6f 6e 73 | 69 73 74 73 20 6f 66 20 |ble cons|ists of |
|00000240| 73 65 76 65 6e 00 73 0a | 10 00 b2 20 65 6e 74 72 |seven.s.|... entr|
|00000250| 79 73 2c 20 77 69 74 68 | 20 65 61 63 68 20 65 6e |ys, with| each en|
|00000260| 74 72 79 20 63 6f 72 72 | 65 73 70 6f 6e 64 69 6e |try corr|espondin|
|00000270| 67 00 a0 0a 11 00 b2 20 | 74 6f 20 74 68 65 20 79 |g...... |to the y|
|00000280| 65 61 72 20 69 6e 20 77 | 68 69 63 68 20 4a 61 6e |ear in w|hich Jan|
|00000290| 75 61 72 79 20 31 73 74 | 20 66 61 6c 6c 73 00 cc |uary 1st| falls..|
|000002a0| 0a 12 00 b2 20 6f 6e 20 | 74 68 65 20 64 61 79 2d |.... on |the day-|
|000002b0| 6f 66 2d 74 68 65 2d 77 | 65 65 6b 20 66 6f 72 20 |of-the-w|eek for |
|000002c0| 74 68 61 74 20 74 61 62 | 6c 65 00 d9 0a 13 00 b2 |that tab|le......|
|000002d0| 20 65 6e 74 72 79 2e 00 | df 0a 14 00 3a 00 0d 0b | entry..|....:...|
|000002e0| 15 00 b2 20 49 6e 73 74 | 72 75 63 74 69 6f 6e 73 |... Inst|ructions|
|000002f0| 20 61 6e 64 20 62 61 63 | 6b 67 72 6f 75 6e 64 20 | and bac|kground |
|00000300| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 00 3b 0b 16 00 |informat|ion.;...|
|00000310| b2 20 61 72 65 20 63 6f | 6e 74 61 69 6e 65 64 20 |. are co|ntained |
|00000320| 77 69 74 68 69 6e 20 74 | 68 65 20 70 72 6f 67 72 |within t|he progr|
|00000330| 61 6d 2e 20 20 54 68 65 | 79 00 6c 0b 17 00 b2 20 |am.  The|y.l.... |
|00000340| 61 72 65 20 64 69 73 70 | 6c 61 79 65 64 20 74 6f |are disp|layed to|
|00000350| 20 74 68 65 20 75 73 65 | 72 20 61 74 20 74 68 65 | the use|r at the|
|00000360| 20 62 65 67 69 6e 6e 69 | 6e 67 00 82 0b 18 00 b2 | beginni|ng......|
|00000370| 20 6f 66 20 74 68 65 20 | 70 72 6f 67 72 61 6d 2e | of the |program.|
|00000380| 00 88 0b 19 00 3a 00 ac | 0b 64 00 ba e7 28 32 31 |.....:..|.d...(21|
|00000390| 29 3a 97 3a b2 20 74 75 | 72 6e 20 6f 66 66 20 38 |):.:. tu|rn off 8|
|000003a0| 30 2d 63 6f 6c 20 63 61 | 72 64 00 d6 0b 6e 00 b2 |0-col ca|rd...n..|
|000003b0| 20 63 75 28 29 20 3d 20 | 63 75 6d 75 6c 61 74 69 | cu() = |cumulati|
|000003c0| 76 65 20 23 20 6f 66 20 | 64 61 79 73 20 69 6e 20 |ve # of |days in |
|000003d0| 79 65 61 72 00 e2 0b 78 | 00 86 43 55 28 31 32 29 |year...x|..CU(12)|
|000003e0| 00 0a 0c 82 00 b2 20 66 | 69 6c 6c 20 61 72 72 61 |...... f|ill arra|
|000003f0| 79 20 77 69 74 68 20 23 | 20 6f 66 20 64 61 79 73 |y with #| of days|
|00000400| 20 69 6e 20 79 65 61 72 | 00 20 0c 8c 00 43 55 28 | in year|. ...CU(|
|00000410| 31 29 d0 30 3a b2 20 4a | 61 6e 75 61 72 79 00 2c |1).0:. J|anuary.,|
|00000420| 0c 96 00 81 49 d0 32 c1 | 31 32 00 33 0c a0 00 87 |....I.2.|12.3....|
|00000430| 58 00 47 0c aa 00 43 55 | 28 49 29 d0 43 55 28 49 |X.G...CU|(I).CU(I|
|00000440| c9 31 29 c8 58 00 4e 0c | b4 00 82 49 00 54 0c be |.1).X.N.|...I.T..|
|00000450| 00 3a 00 79 0c c8 00 b2 | 20 44 4e 24 28 29 20 3d |.:.y....| DN$() =|
|00000460| 20 4e 61 6d 65 73 20 66 | 6f 72 20 64 61 79 73 20 | Names f|or days |
|00000470| 6f 66 20 77 65 65 6b 00 | 85 0c d2 00 86 44 4e 24 |of week.|.....DN$|
|00000480| 28 37 29 00 b1 0c dc 00 | b2 20 66 69 6c 6c 20 61 |(7).....|. fill a|
|00000490| 72 72 61 79 20 77 69 74 | 68 20 6e 61 6d 65 73 20 |rray wit|h names |
|000004a0| 6f 66 20 64 61 79 73 20 | 6f 66 20 77 65 65 6b 00 |of days |of week.|
|000004b0| bc 0c e6 00 81 49 d0 31 | c1 37 00 c8 0c f0 00 87 |.....I.1|.7......|
|000004c0| 44 4e 24 28 49 29 00 cf | 0c fa 00 82 49 00 d5 0c |DN$(I)..|....I...|
|000004d0| 04 01 3a 00 f9 0c 0e 01 | b2 20 79 74 28 29 20 69 |..:.....|. yt() i|
|000004e0| 73 20 74 68 65 20 79 65 | 61 72 20 74 61 62 6c 65 |s the ye|ar table|
|000004f0| 20 76 61 6c 75 65 73 00 | 04 0d 18 01 86 59 54 28 | values.|.....YT(|
|00000500| 37 29 00 0a 0d 22 01 3a | 00 25 0d 2c 01 b2 20 53 |7)...".:|.%.,.. S|
|00000510| 61 76 65 20 6f 72 69 67 | 69 6e 61 6c 20 70 72 65 |ave orig|inal pre|
|00000520| 66 69 78 00 37 0d 36 01 | ba e7 28 34 29 22 50 72 |fix.7.6.|..(4)"Pr|
|00000530| 65 66 69 78 22 00 41 0d | 40 01 84 50 46 58 24 00 |efix".A.|@..PFX$.|
|00000540| 47 0d 4a 01 3a 00 6c 0d | 54 01 b8 c2 4d 4f 44 37 |G.J.:.l.|T...MOD7|
|00000550| 28 58 29 d0 d3 28 28 28 | 58 cb 37 29 c9 d3 28 58 |(X)..(((|X.7)..(X|
|00000560| cb 37 29 29 ca 37 c8 2e | 35 29 00 72 0d 5e 01 3a |.7)).7..|5).r.^.:|
|00000570| 00 92 0d 68 01 b2 20 44 | 69 73 70 6c 61 79 20 73 |...h.. D|isplay s|
|00000580| 6f 6d 65 20 69 6e 73 74 | 72 75 63 74 69 6f 6e 73 |ome inst|ructions|
|00000590| 00 98 0d 72 01 97 00 a0 | 0d 7c 01 87 41 24 00 b6 |...r....|.|..A$..|
|000005a0| 0d 86 01 ad 41 24 d0 22 | 22 c4 b0 39 30 30 3a ab |....A$."|"..900:.|
|000005b0| 31 30 30 30 00 be 0d 90 | 01 ba 41 24 00 d3 0d 9a |1000....|..A$....|
|000005c0| 01 ad e2 28 33 37 29 cf | 32 31 c4 b0 39 30 30 3a |...(37).|21..900:|
|000005d0| 97 00 dc 0d a4 01 ab 33 | 38 30 00 e2 0d ae 01 3a |.......3|80.....:|
|000005e0| 00 0f 0e 1f 03 b2 20 46 | 69 6e 64 73 20 70 6f 73 |...... F|inds pos|
|000005f0| 69 74 69 6f 6e 20 6f 66 | 20 2f 20 77 69 74 68 69 |ition of| / withi|
|00000600| 6e 20 64 61 74 65 20 73 | 74 72 69 6e 67 00 4c 0e |n date s|tring.L.|
|00000610| 20 03 58 d0 30 3a b2 4f | 6e 20 65 78 69 74 2c 20 | .X.0:.O|n exit, |
|00000620| 63 6f 6e 74 61 69 6e 73 | 20 70 6f 73 69 74 69 6f |contains| positio|
|00000630| 6e 20 6f 66 20 2f 2c 20 | 6f 72 20 30 20 69 66 20 |n of /, |or 0 if |
|00000640| 6e 6f 6e 65 20 66 6f 75 | 6e 64 00 57 0e 2a 03 81 |none fou|nd.W.*..|
|00000650| 49 d0 31 c1 33 00 74 0e | 34 03 ad ea 28 44 41 59 |I.1.3.t.|4...(DAY|
|00000660| 24 2c 49 2c 31 29 d0 22 | 2f 22 c4 58 d0 49 3a 49 |$,I,1)."|/".X.I:I|
|00000670| d0 33 00 7b 0e 3e 03 82 | 49 00 81 0e 48 03 b1 00 |.3.{.>..|I...H...|
|00000680| 87 0e 52 03 3a 00 b5 0e | 83 03 b2 20 50 61 75 73 |..R.:...|... Paus|
|00000690| 65 20 62 65 74 77 65 65 | 6e 20 73 63 72 65 65 6e |e betwee|n screen|
|000006a0| 66 75 6c 73 20 6f 66 20 | 69 6e 66 6f 72 6d 61 74 |fuls of |informat|
|000006b0| 69 6f 6e 00 e9 0e 84 03 | a2 32 34 3a 96 34 3a ba |ion.....|.24:.4:.|
|000006c0| 22 3c 52 45 54 3e 20 74 | 6f 20 63 6f 6e 74 69 6e |"<RET> t|o contin|
|000006d0| 75 65 2c 20 3c 45 53 43 | 3e 20 74 6f 20 65 78 69 |ue, <ESC|> to exi|
|000006e0| 74 22 3b 3a be 41 24 00 | ff 0e 8e 03 ad 41 24 d0 |t";:.A$.|.....A$.|
|000006f0| e7 28 32 37 29 c4 a1 3a | ab 35 30 30 30 00 19 0f |.(27)..:|.5000...|
|00000700| 98 03 ad 41 24 d1 cf e7 | 28 31 33 29 c4 ba e7 28 |...A$...|(13)...(|
|00000710| 37 29 3a ab 39 30 30 00 | 1f 0f a2 03 b1 00 25 0f |7):.900.|......%.|
|00000720| ac 03 3a 00 4c 0f e7 03 | b2 20 67 65 74 20 74 68 |..:.L...|. get th|
|00000730| 65 20 75 73 65 72 27 73 | 20 69 6e 70 75 74 20 61 |e user's| input a|
|00000740| 6e 64 20 63 6f 6e 76 65 | 72 74 00 52 0f e8 03 97 |nd conve|rt.R....|
|00000750| 00 7e 0f f2 03 ba 22 50 | 6c 65 61 73 65 20 65 6e |.~...."P|lease en|
|00000760| 74 65 72 20 74 6f 64 61 | 79 27 73 20 64 61 74 65 |ter toda|y's date|
|00000770| 20 28 6d 6d 2f 64 64 2f | 79 79 29 22 00 8e 0f fc | (mm/dd/|yy)"....|
|00000780| 03 84 22 2d 3e 20 22 3b | 44 41 59 24 00 ae 0f 06 |.."-> ";|DAY$....|
|00000790| 04 b0 38 30 30 3a b2 20 | 66 69 6e 64 20 73 6c 61 |..800:. |find sla|
|000007a0| 73 68 20 73 65 70 61 72 | 61 74 6f 72 00 bd 0f 10 |sh separ|ator....|
|000007b0| 04 ad 58 d1 cf 30 c4 31 | 30 38 30 00 f2 0f 1a 04 |..X..0.1|080.....|
|000007c0| ba 22 49 6e 76 61 6c 69 | 64 20 64 61 74 65 20 65 |."Invali|d date e|
|000007d0| 6e 74 65 72 65 64 2e 20 | 20 50 6c 65 61 73 65 20 |ntered. | Please |
|000007e0| 74 72 79 20 61 67 61 69 | 6e 2e 22 3b e7 28 37 29 |try agai|n.";.(7)|
|000007f0| 00 fc 0f 24 04 ab 31 30 | 31 30 00 2a 10 2e 04 b2 |...$..10|10.*....|
|00000800| 20 43 6f 6e 76 65 72 74 | 20 6d 6f 6e 74 68 20 76 | Convert| month v|
|00000810| 61 6c 75 65 20 74 6f 20 | 6e 75 6d 65 72 69 63 20 |alue to |numeric |
|00000820| 76 61 72 69 61 62 6c 65 | 00 42 10 38 04 4d 4f d0 |variable|.B.8.MO.|
|00000830| e5 28 ea 28 44 41 59 24 | 2c 31 2c 58 c9 31 29 29 |.(.(DAY$|,1,X.1))|
|00000840| 00 57 10 42 04 44 41 59 | 24 d0 ea 28 44 41 59 24 |.W.B.DAY|$..(DAY$|
|00000850| 2c 58 c8 31 29 00 89 10 | 4c 04 ad 4d 4f d1 31 ce |,X.1)...|L..MO.1.|
|00000860| 4d 4f cf 31 32 c4 31 30 | 35 30 3a b2 52 61 6e 67 |MO.12.10|50:.Rang|
|00000870| 65 20 63 68 65 63 6b 20 | 74 68 65 20 6d 6f 6e 74 |e check |the mont|
|00000880| 68 20 76 61 6c 75 65 00 | ad 10 56 04 b0 38 30 30 |h value.|..V..800|
|00000890| 3a b2 50 61 72 73 65 20 | 6f 75 74 20 74 68 65 20 |:.Parse |out the |
|000008a0| 63 75 72 72 65 6e 74 20 | 64 61 79 00 bb 10 60 04 |current |day...`.|
|000008b0| ad 58 d0 30 c4 31 30 35 | 30 00 e7 10 6a 04 b2 20 |.X.0.105|0...j.. |
|000008c0| 43 6f 6e 76 65 72 74 20 | 64 61 79 20 73 74 72 69 |Convert |day stri|
|000008d0| 6e 67 20 69 6e 74 6f 20 | 6e 75 6d 65 72 69 63 20 |ng into |numeric |
|000008e0| 76 61 6c 75 65 00 ff 10 | 74 04 44 41 d0 e5 28 ea |value...|t.DA..(.|
|000008f0| 28 44 41 59 24 2c 31 2c | 58 c9 31 29 29 00 14 11 |(DAY$,1,|X.1))...|
|00000900| 7e 04 44 41 59 24 d0 ea | 28 44 41 59 24 2c 58 c8 |~.DAY$..|(DAY$,X.|
|00000910| 31 29 00 44 11 88 04 ad | 44 41 d1 31 ce 44 41 cf |1).D....|DA.1.DA.|
|00000920| 33 31 c4 31 30 35 30 3a | b2 52 61 6e 67 65 20 63 |31.1050:|.Range c|
|00000930| 68 65 63 6b 20 74 68 65 | 20 64 61 79 20 76 61 6c |heck the| day val|
|00000940| 75 65 00 71 11 92 04 b2 | 20 43 6f 6e 76 65 72 74 |ue.q....| Convert|
|00000950| 20 79 65 61 72 20 73 74 | 72 69 6e 67 20 69 6e 74 | year st|ring int|
|00000960| 6f 20 6e 75 6d 65 72 69 | 63 20 76 61 6c 75 65 00 |o numeri|c value.|
|00000970| 80 11 9c 04 59 52 d0 e5 | 28 44 41 59 24 29 00 a6 |....YR..|(DAY$)..|
|00000980| 11 a6 04 ad 59 52 d1 30 | ce 59 52 cf 39 39 c4 31 |....YR.0|.YR.99.1|
|00000990| 30 35 30 3a b2 4f 6e 6c | 79 20 61 6c 6c 6f 77 20 |050:.Onl|y allow |
|000009a0| 30 2d 39 39 00 d5 11 b0 | 04 ad 59 52 cf 33 39 c4 |0-99....|..YR.39.|
|000009b0| 59 52 d0 59 52 c8 31 39 | 30 30 3a b2 34 30 2d 39 |YR.YR.19|00:.40-9|
|000009c0| 39 20 6d 75 73 74 20 62 | 65 20 31 39 34 30 2d 31 |9 must b|e 1940-1|
|000009d0| 39 39 39 00 03 12 ba 04 | ad 59 52 d1 34 30 c4 59 |999.....|.YR.40.Y|
|000009e0| 52 d0 59 52 c8 32 30 30 | 30 3a b2 30 2d 33 39 20 |R.YR.200|0:.0-39 |
|000009f0| 6d 75 73 74 20 62 65 20 | 32 30 30 30 2d 32 30 33 |must be |2000-203|
|00000a00| 39 00 09 12 c4 04 3a 00 | 31 12 ce 04 ba 22 50 6c |9.....:.|1...."Pl|
|00000a10| 65 61 73 65 20 65 6e 74 | 65 72 20 74 68 65 20 64 |ease ent|er the d|
|00000a20| 61 79 20 6f 66 20 74 68 | 65 20 77 65 65 6b 22 00 |ay of th|e week".|
|00000a30| 4c 12 d8 04 84 22 28 65 | 2e 67 2e 20 57 65 64 29 |L...."(e|.g. Wed)|
|00000a40| 20 2d 3e 20 22 3b 44 4f | 57 24 00 80 12 e2 04 ad | -> ";DO|W$......|
|00000a50| e3 28 44 4f 57 24 29 cf | d0 33 c4 31 32 37 30 3a |.(DOW$).|.3.1270:|
|00000a60| b2 4d 75 73 74 20 62 65 | 20 61 74 20 6c 65 61 73 |.Must be| at leas|
|00000a70| 74 20 33 20 63 68 61 72 | 61 63 74 65 72 73 00 ba |t 3 char|acters..|
|00000a80| 12 ec 04 ba 22 49 6e 76 | 61 6c 69 64 20 64 61 79 |...."Inv|alid day|
|00000a90| 20 6f 66 20 77 65 65 6b | 2e 20 20 50 6c 65 61 73 | of week|.  Pleas|
|00000aa0| 65 20 74 72 79 20 61 67 | 61 69 6e 2e 22 3b e7 28 |e try ag|ain.";.(|
|00000ab0| 37 29 3a ab 31 32 33 30 | 00 d8 12 f6 04 ad e3 28 |7):.1230|.......(|
|00000ac0| 44 4f 57 24 29 cf 33 c4 | 44 4f 57 24 d0 e8 28 44 |DOW$).3.|DOW$..(D|
|00000ad0| 4f 57 24 2c 33 29 00 09 | 13 00 05 b2 20 53 68 69 |OW$,3)..|.... Shi|
|00000ae0| 66 74 20 61 6e 79 20 6c | 6f 77 65 72 20 63 61 73 |ft any l|ower cas|
|00000af0| 65 20 6c 65 74 74 65 72 | 73 20 74 6f 20 75 70 70 |e letter|s to upp|
|00000b00| 65 72 20 63 61 73 65 00 | 13 13 0a 05 42 24 d0 22 |er case.|....B$."|
|00000b10| 22 00 1e 13 14 05 81 49 | d0 31 c1 33 00 31 13 1e |"......I|.1.3.1..|
|00000b20| 05 41 24 d0 ea 28 44 4f | 57 24 2c 49 2c 31 29 00 |.A$..(DO|W$,I,1).|
|00000b30| 6e 13 28 05 ad e6 28 41 | 24 29 cf d0 e6 28 22 61 |n.(...(A|$)...("a|
|00000b40| 22 29 cd e6 28 41 24 29 | d1 d0 e6 28 22 7a 22 29 |")..(A$)|...("z")|
|00000b50| c4 41 24 d0 e7 28 e6 28 | 41 24 29 c9 28 e6 28 22 |.A$..(.(|A$).(.("|
|00000b60| 61 22 29 c9 e6 28 22 41 | 22 29 29 29 00 7b 13 32 |a")..("A|"))).{.2|
|00000b70| 05 42 24 d0 42 24 c8 41 | 24 00 82 13 3c 05 82 49 |.B$.B$.A|$...<..I|
|00000b80| 00 8e 13 46 05 44 4f 57 | 24 d0 42 24 00 c4 13 50 |...F.DOW|$.B$...P|
|00000b90| 05 b2 20 4e 6f 77 20 63 | 6f 6e 76 65 72 74 20 64 |.. Now c|onvert d|
|00000ba0| 61 79 2d 6f 66 2d 77 65 | 65 6b 20 73 74 72 69 6e |ay-of-we|ek strin|
|00000bb0| 67 20 74 6f 20 6e 75 6d | 65 72 69 63 20 76 61 6c |g to num|eric val|
|00000bc0| 75 65 00 ce 13 5a 05 44 | 4f 57 d0 30 00 d9 13 64 |ue...Z.D|OW.0...d|
|00000bd0| 05 81 49 d0 31 c1 37 00 | f4 13 6e 05 ad 44 4f 57 |..I.1.7.|..n..DOW|
|00000be0| 24 d0 44 4e 24 28 49 29 | c4 44 4f 57 d0 49 3a 49 |$.DN$(I)|.DOW.I:I|
|00000bf0| d0 37 00 fb 13 78 05 82 | 49 00 0b 14 82 05 ad 44 |.7...x..|I......D|
|00000c00| 4f 57 d0 30 c4 31 32 36 | 30 00 11 14 8c 05 3a 00 |OW.0.126|0.....:.|
|00000c10| 45 14 96 05 b2 20 43 61 | 6c 63 75 6c 61 74 65 20 |E.... Ca|lculate |
|00000c20| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 64 61 |the numb|er of da|
|00000c30| 79 73 20 73 6f 20 66 61 | 72 20 74 68 69 73 20 79 |ys so fa|r this y|
|00000c40| 65 61 72 00 57 14 a0 05 | 44 59 53 d0 44 41 c8 43 |ear.W...|DYS.DA.C|
|00000c50| 55 28 4d 4f 29 00 85 14 | aa 05 b2 20 4d 75 73 74 |U(MO)...|... Must|
|00000c60| 20 61 63 63 6f 75 6e 74 | 20 66 6f 72 20 65 78 74 | account| for ext|
|00000c70| 72 61 20 64 61 79 20 69 | 6e 20 6c 65 61 70 20 79 |ra day i|n leap y|
|00000c80| 65 61 72 00 a8 14 b4 05 | ad 28 59 52 cb 34 29 d0 |ear.....|.(YR.4).|
|00000c90| d3 28 59 52 cb 34 29 cd | 4d 4f cf 32 c4 44 59 53 |.(YR.4).|MO.2.DYS|
|00000ca0| d0 44 59 53 c8 31 00 ae | 14 be 05 3a 00 e8 14 c8 |.DYS.1..|...:....|
|00000cb0| 05 b2 20 4e 6f 77 20 63 | 61 6c 63 75 6c 61 74 65 |.. Now c|alculate|
|00000cc0| 20 74 68 65 20 69 6e 64 | 65 78 20 74 6f 20 75 73 | the ind|ex to us|
|00000cd0| 65 20 74 6f 20 66 69 6c | 6c 20 69 6e 20 74 68 65 |e to fil|l in the|
|00000ce0| 20 74 61 62 6c 65 00 01 | 15 d2 05 49 44 58 d0 44 | table..|...IDX.D|
|00000cf0| 4f 57 c9 c2 4d 4f 44 37 | 28 44 59 53 29 c8 31 00 |OW..MOD7|(DYS).1.|
|00000d00| 13 15 dc 05 49 44 58 d0 | d4 28 49 44 58 c9 31 30 |....IDX.|.(IDX.10|
|00000d10| 29 00 28 15 e6 05 ad 49 | 44 58 cf 37 c4 49 44 58 |).(....I|DX.7.IDX|
|00000d20| d0 49 44 58 c9 37 00 2e | 15 f0 05 3a 00 56 15 fa |.IDX.7..|...:.V..|
|00000d30| 05 b2 20 4e 6f 77 20 77 | 65 20 63 61 6e 20 66 69 |.. Now w|e can fi|
|00000d40| 6c 6c 20 69 6e 20 74 68 | 65 20 79 65 61 72 20 74 |ll in th|e year t|
|00000d50| 61 62 6c 65 00 61 15 04 | 06 81 49 d0 31 c1 37 00 |able.a..|..I.1.7.|
|00000d60| 6f 15 0e 06 58 d0 59 52 | c9 31 39 30 30 00 83 15 |o...X.YR|.1900...|
|00000d70| 18 06 ad 58 cf d0 31 30 | 30 c4 58 d0 58 c9 31 30 |...X..10|0.X.X.10|
|00000d80| 30 00 ad 15 22 06 59 54 | 28 49 44 58 29 d0 58 3a |0...".YT|(IDX).X:|
|00000d90| b2 20 73 74 6f 72 65 20 | 74 68 65 20 79 65 61 72 |. store |the year|
|00000da0| 20 69 6e 74 6f 20 74 61 | 62 6c 65 00 bb 15 2c 06 | into ta|ble...,.|
|00000db0| 49 44 58 d0 49 44 58 c9 | 31 00 cc 15 36 06 ad 49 |IDX.IDX.|1...6..I|
|00000dc0| 44 58 d1 31 c4 49 44 58 | d0 37 00 f8 15 40 06 ad |DX.1.IDX|.7...@..|
|00000dd0| 28 59 52 cb 34 29 d1 cf | d3 28 59 52 cb 34 29 c4 |(YR.4)..|.(YR.4).|
|00000de0| 31 36 36 30 3a b2 20 6e | 6f 74 20 61 20 6c 65 61 |1660:. n|ot a lea|
|00000df0| 70 20 79 65 61 72 00 11 | 16 4a 06 49 d0 49 c8 31 |p year..|.J.I.I.1|
|00000e00| 3a b2 20 75 70 64 61 74 | 65 20 69 6e 64 65 78 00 |:. updat|e index.|
|00000e10| 3c 16 54 06 ad 49 cf 37 | c4 31 36 37 30 3a b2 20 |<.T..I.7|.1670:. |
|00000e20| 69 66 20 65 6e 74 69 72 | 65 20 61 72 72 61 79 20 |if entir|e array |
|00000e30| 64 6f 6e 65 2c 20 65 78 | 69 74 00 6a 16 5e 06 59 |done, ex|it.j.^.Y|
|00000e40| 54 28 49 44 58 29 d0 58 | 3a b2 20 64 75 70 6c 69 |T(IDX).X|:. dupli|
|00000e50| 63 61 74 65 20 65 6e 74 | 72 79 20 66 6f 72 20 6c |cate ent|ry for l|
|00000e60| 65 61 70 20 79 65 61 72 | 00 78 16 68 06 49 44 58 |eap year|.x.h.IDX|
|00000e70| d0 49 44 58 c9 31 00 89 | 16 72 06 ad 49 44 58 d1 |.IDX.1..|.r..IDX.|
|00000e80| 31 c4 49 44 58 d0 37 00 | 95 16 7c 06 59 52 d0 59 |1.IDX.7.|..|.YR.Y|
|00000e90| 52 c8 31 00 9c 16 86 06 | 82 49 00 a2 16 90 06 3a |R.1.....|.I.....:|
|00000ea0| 00 c5 16 9a 06 81 49 d0 | 31 c1 37 3a b2 50 6f 6b |......I.|1.7:.Pok|
|00000eb0| 65 20 74 61 62 6c 65 20 | 69 6e 74 6f 20 6d 65 6d |e table |into mem|
|00000ec0| 6f 72 79 00 d6 16 a4 06 | b9 37 36 37 c8 49 2c 59 |ory.....|.767.I,Y|
|00000ed0| 54 28 49 29 00 dd 16 ae | 06 82 49 00 01 17 d0 07 |T(I)....|..I.....|
|00000ee0| b2 20 4e 6f 77 20 74 68 | 61 74 20 74 68 65 20 74 |. Now th|at the t|
|00000ef0| 61 62 6c 65 20 69 73 20 | 73 65 74 20 75 70 2c 00 |able is |set up,.|
|00000f00| 21 17 da 07 b2 20 77 65 | 20 63 61 6e 20 6d 6f 64 |!.... we| can mod|
|00000f10| 69 66 79 20 74 68 65 20 | 66 69 6c 65 28 73 29 00 |ify the |file(s).|
|00000f20| 2b 17 e4 07 a2 36 3a 96 | 31 00 a9 17 ee 07 ba 22 |+....6:.|1......"|
|00000f30| 59 6f 75 20 6d 61 79 20 | 6e 6f 77 20 69 6e 73 65 |You may |now inse|
|00000f40| 72 74 20 74 68 65 20 64 | 69 73 6b 20 63 6f 6e 74 |rt the d|isk cont|
|00000f50| 61 69 6e 69 6e 67 22 3a | ba 22 74 68 65 20 50 72 |aining":|."the Pr|
|00000f60| 6f 44 4f 53 20 66 69 6c | 65 20 74 6f 20 62 65 20 |oDOS fil|e to be |
|00000f70| 6d 6f 64 69 66 69 65 64 | 2c 20 74 68 65 6e 22 3a |modified|, then":|
|00000f80| ba 22 65 6e 74 65 72 20 | 74 68 65 20 6c 6f 63 61 |."enter |the loca|
|00000f90| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 64 69 73 6b |tion of |the disk|
|00000fa0| 2e 20 20 59 6f 75 22 00 | 25 18 f8 07 ba 22 63 61 |.  You".|%...."ca|
|00000fb0| 6e 20 65 6e 74 65 72 20 | 74 68 65 20 6c 6f 63 61 |n enter |the loca|
|00000fc0| 74 69 6f 6e 20 65 69 74 | 68 65 72 20 61 73 20 74 |tion eit|her as t|
|00000fd0| 68 65 22 3a ba 22 76 6f | 6c 75 6d 65 20 6e 61 6d |he":."vo|lume nam|
|00000fe0| 65 20 6f 66 20 74 68 65 | 20 64 69 73 6b 2c 20 6f |e of the| disk, o|
|00000ff0| 72 20 62 79 20 69 74 73 | 22 3a ba 22 73 6c 6f 74 |r by its|":."slot|
|00001000| 20 61 6e 64 20 64 72 69 | 76 65 20 6c 6f 63 61 74 | and dri|ve locat|
|00001010| 69 6f 6e 20 28 45 53 43 | 20 74 6f 20 65 78 69 74 |ion (ESC| to exit|
|00001020| 29 3a 22 00 31 18 fd 07 | ba 22 2d 3e 20 22 3b 00 |):".1...|."-> ";.|
|00001030| 42 18 02 08 a2 31 32 3a | 96 34 3a 8c c9 39 35 38 |B....12:|.4:..958|
|00001040| 00 4a 18 0c 08 be 41 24 | 00 6f 18 16 08 ad 41 24 |.J....A$|.o....A$|
|00001050| d0 22 2f 22 c4 32 31 30 | 30 3a b2 20 69 6e 70 75 |."/".210|0:. inpu|
|00001060| 74 20 76 6f 6c 75 6d 65 | 20 6e 61 6d 65 00 9a 18 |t volume| name...|
|00001070| 20 08 ad 41 24 d0 22 53 | 22 ce 41 24 d0 22 73 22 | ..A$."S|".A$."s"|
|00001080| c4 32 32 30 30 3a b2 20 | 73 6c 6f 74 2f 64 72 69 |.2200:. |slot/dri|
|00001090| 76 65 20 69 6e 70 75 74 | 00 c1 18 25 08 ad e6 28 |ve input|...%...(|
|000010a0| 41 24 29 d0 32 37 c4 35 | 30 30 30 3a b2 20 45 53 |A$).27.5|000:. ES|
|000010b0| 43 20 70 72 65 73 73 65 | 64 2c 20 65 78 69 74 00 |C presse|d, exit.|
|000010c0| f0 18 2a 08 ba e7 28 37 | 29 3b 3a ab 32 30 36 30 |..*...(7|);:.2060|
|000010d0| 3a b2 4e 6f 6e 65 20 6f | 66 20 74 68 65 20 61 62 |:.None o|f the ab|
|000010e0| 6f 76 65 2c 20 74 72 79 | 20 61 67 61 69 6e 00 f6 |ove, try| again..|
|000010f0| 18 32 08 3a 00 16 19 33 | 08 b2 52 65 61 64 20 76 |.2.:...3|..Read v|
|00001100| 6f 6c 75 6d 65 20 6e 61 | 6d 65 20 66 72 6f 6d 20 |olume na|me from |
|00001110| 75 73 65 72 00 28 19 34 | 08 ba 41 24 3b 3a 84 22 |user.(.4|..A$;:."|
|00001120| 22 3b 50 54 48 24 00 50 | 19 3e 08 50 54 48 24 d0 |";PTH$.P|.>.PTH$.|
|00001130| 22 2f 22 c8 50 54 48 24 | 3a b2 20 62 75 69 6c 64 |"/".PTH$|:. build|
|00001140| 20 66 75 6c 6c 20 70 61 | 74 68 6e 61 6d 65 00 61 | full pa|thname.a|
|00001150| 19 48 08 81 49 d0 32 c1 | e3 28 50 54 48 24 29 00 |.H..I.2.|.(PTH$).|
|00001160| a1 19 52 08 ad ea 28 50 | 54 48 24 2c 49 2c 31 29 |..R...(P|TH$,I,1)|
|00001170| d1 cf 22 2f 22 c4 32 31 | 36 30 3a b2 45 6e 73 75 |.."/".21|60:.Ensu|
|00001180| 72 65 20 6f 6e 6c 79 20 | 76 6f 6c 75 6d 65 20 6e |re only |volume n|
|00001190| 61 6d 65 20 69 73 20 69 | 6e 63 6c 75 64 65 64 00 |ame is i|ncluded.|
|000011a0| d1 19 5c 08 ba 22 50 6c | 65 61 73 65 20 73 75 70 |..\.."Pl|ease sup|
|000011b0| 70 6c 79 20 6f 6e 6c 79 | 20 74 68 65 20 76 6f 6c |ply only| the vol|
|000011c0| 75 6d 65 20 6e 61 6d 65 | 2e 22 3b e7 28 37 29 00 |ume name|.";.(7).|
|000011d0| e8 19 66 08 a2 31 32 3a | 96 34 3a 8c c9 38 36 38 |..f..12:|.4:..868|
|000011e0| 3a ab 32 30 36 30 00 ef | 19 70 08 82 49 00 00 1a |:.2060..|.p..I...|
|000011f0| 7a 08 a2 31 33 3a 96 31 | 3a 8c c9 39 35 38 00 2a |z..13:.1|:..958.*|
|00001200| 1a 84 08 ba e7 28 34 29 | 22 50 72 65 66 69 78 20 |.....(4)|"Prefix |
|00001210| 22 50 54 48 24 3a b2 53 | 65 74 20 50 72 6f 44 4f |"PTH$:.S|et ProDO|
|00001220| 53 20 70 72 65 66 69 78 | 00 54 1a 8e 08 ab 32 33 |S prefix|.T....23|
|00001230| 30 30 3a b2 74 68 65 6e | 20 67 6f 20 6d 6f 64 69 |00:.then| go modi|
|00001240| 66 79 20 74 68 65 20 50 | 72 6f 44 4f 53 20 66 69 |fy the P|roDOS fi|
|00001250| 6c 65 00 5a 1a 96 08 3a | 00 8d 1a 97 08 b2 52 65 |le.Z...:|......Re|
|00001260| 61 64 20 76 6f 6c 75 6d | 65 20 6e 61 6d 65 20 66 |ad volum|e name f|
|00001270| 72 6f 6d 20 64 69 73 6b | 20 69 6e 20 73 70 65 63 |rom disk| in spec|
|00001280| 69 66 69 65 64 20 64 72 | 69 76 65 00 97 1a 98 08 |ified dr|ive.....|
|00001290| ba 22 53 22 3b 00 9f 1a | a2 08 be 41 24 00 ac 1a |."S";...|...A$...|
|000012a0| ac 08 53 4c d0 e5 28 41 | 24 29 00 e9 1a b6 08 ad |..SL..(A|$)......|
|000012b0| 53 4c d1 31 ce 53 4c cf | 37 c4 ba 3a ba 22 53 6c |SL.1.SL.|7..:."Sl|
|000012c0| 6f 74 20 6e 75 6d 62 65 | 72 20 31 2d 37 20 6f 6e |ot numbe|r 1-7 on|
|000012d0| 6c 79 2e 22 3b e7 28 37 | 29 3b 3a a2 31 32 3a 96 |ly.";.(7|);:.12:.|
|000012e0| 35 3a ab 32 32 31 30 00 | fd 1a c0 08 ba 53 4c 3b |5:.2210.|.....SL;|
|000012f0| 22 2c 44 22 3b 3a 8c c9 | 39 35 38 00 05 1b ca 08 |",D";:..|958.....|
|00001300| be 41 24 00 12 1b d4 08 | 44 52 d0 e5 28 41 24 29 |.A$.....|DR..(A$)|
|00001310| 00 55 1b de 08 ad 44 52 | d1 cf 31 cd 44 52 d1 cf |.U....DR|..1.DR..|
|00001320| 32 c4 ba 3a ba 22 44 72 | 69 76 65 72 20 6e 75 6d |2..:."Dr|iver num|
|00001330| 62 65 72 20 31 20 6f 72 | 20 32 20 6f 6e 6c 79 2e |ber 1 or| 2 only.|
|00001340| 22 3b e7 28 37 29 3a a2 | 31 32 3a 96 38 3a ab 32 |";.(7):.|12:.8:.2|
|00001350| 32 35 30 00 63 1b e8 08 | ba 44 52 3a 8c c9 39 35 |250.c...|.DR:..95|
|00001360| 38 00 80 1b f2 08 ba e7 | 28 34 29 22 50 72 65 66 |8.......|(4)"Pref|
|00001370| 69 78 2c 53 22 53 4c 22 | 2c 44 22 44 52 22 00 ad |ix,S"SL"|,D"DR"..|
|00001380| 1b fc 08 b2 20 50 72 65 | 66 69 78 20 69 73 20 6e |.... Pre|fix is n|
|00001390| 6f 77 20 73 65 74 20 74 | 6f 20 74 68 65 20 70 72 |ow set t|o the pr|
|000013a0| 6f 70 65 72 20 76 6f 6c | 75 6d 65 00 f0 1b 10 09 |oper vol|ume.....|
|000013b0| ba e7 28 34 29 22 42 6c | 6f 61 64 20 50 72 6f 44 |..(4)"Bl|oad ProD|
|000013c0| 4f 53 2c 74 73 79 73 2c | 61 24 33 31 30 2c 6c 24 |OS,tsys,|a$310,l$|
|000013d0| 35 2c 62 24 31 62 22 3a | b2 20 52 65 61 64 20 50 |5,b$1b":|. Read P|
|000013e0| 38 20 32 2e 30 20 76 65 | 72 73 69 6f 6e 20 00 fa |8 2.0 ve|rsion ..|
|000013f0| 1b 1a 09 41 24 d0 22 22 | 00 05 1c 24 09 81 49 d0 |...A$.""|...$..I.|
|00001400| 31 c1 35 00 14 1c 26 09 | 58 d0 e2 28 37 38 33 c8 |1.5...&.|X..(783.|
|00001410| 49 29 00 27 1c 28 09 ad | 58 cf 31 32 37 c4 58 d0 |I).'.(..|X.127.X.|
|00001420| 58 c9 31 32 38 00 36 1c | 2e 09 41 24 d0 41 24 c8 |X.128.6.|..A$.A$.|
|00001430| e7 28 58 29 00 3d 1c 38 | 09 82 49 00 9a 1c 42 09 |.(X).=.8|..I...B.|
|00001440| ad 41 24 d1 cf 22 32 2e | 30 20 20 22 cd 41 24 d1 |.A$.."2.|0  ".A$.|
|00001450| cf 22 32 2e 30 2e 31 22 | cd 41 24 d1 cf 22 32 2e |."2.0.1"|.A$.."2.|
|00001460| 30 2e 32 22 cd 41 24 d1 | cf 22 32 2e 30 2e 33 22 |0.2".A$.|."2.0.3"|
|00001470| c4 32 34 30 30 3a b2 69 | 74 27 73 20 6e 6f 74 20 |.2400:.i|t's not |
|00001480| 32 2e 30 2c 20 32 2e 30 | 2e 31 2c 20 32 2e 30 2e |2.0, 2.0|.1, 2.0.|
|00001490| 32 2c 20 32 2e 30 2e 33 | 00 c9 1c 4c 09 41 44 52 |2, 2.0.3|...L.ADR|
|000014a0| 53 d0 33 39 35 38 3a b2 | 20 6c 6f 63 61 74 69 6f |S.3958:.| locatio|
|000014b0| 6e 20 6f 66 20 74 61 62 | 6c 65 20 77 69 74 68 69 |n of tab|le withi|
|000014c0| 6e 20 69 6d 61 67 65 00 | ec 1c 56 09 ab 32 36 30 |n image.|..V..260|
|000014d0| 30 3a b2 20 67 6f 20 77 | 72 69 74 65 20 74 68 65 |0:. go w|rite the|
|000014e0| 20 6e 65 77 20 74 61 62 | 6c 65 00 19 1d 60 09 ba | new tab|le...`..|
|000014f0| e7 28 34 29 22 42 6c 6f | 61 64 20 50 72 6f 44 4f |.(4)"Blo|ad ProDO|
|00001500| 53 2c 74 73 79 73 2c 61 | 24 33 31 30 2c 6c 24 33 |S,tsys,a|$310,l$3|
|00001510| 2c 62 24 36 35 31 22 00 | 23 1d 6a 09 41 24 d0 22 |,b$651".|#.j.A$."|
|00001520| 22 00 2e 1d 74 09 81 49 | d0 31 c1 33 00 3d 1d 76 |"...t..I|.1.3.=.v|
|00001530| 09 58 d0 e2 28 37 38 33 | c8 49 29 00 50 1d 78 09 |.X..(783|.I).P.x.|
|00001540| ad 58 cf 31 32 37 c4 58 | d0 58 c9 31 32 38 00 5f |.X.127.X|.X.128._|
|00001550| 1d 7e 09 41 24 d0 41 24 | c8 e7 28 58 29 00 66 1d |.~.A$.A$|..(X).f.|
|00001560| 88 09 82 49 00 8d 1d 92 | 09 ad e5 28 41 24 29 d0 |...I....|...(A$).|
|00001570| 31 2e 39 c4 32 35 30 30 | 3a b2 20 69 74 27 73 20 |1.9.2500|:. it's |
|00001580| 76 65 72 73 69 6f 6e 20 | 31 2e 39 00 d8 1d 9c 09 |version |1.9.....|
|00001590| ba 22 4f 6e 6c 79 20 50 | 72 6f 44 4f 53 20 76 65 |."Only P|roDOS ve|
|000015a0| 72 73 69 6f 6e 73 20 31 | 2e 39 20 61 6e 64 20 32 |rsions 1|.9 and 2|
|000015b0| 2e 30 20 6d 61 79 22 3a | ba 22 62 65 20 70 61 74 |.0 may":|."be pat|
|000015c0| 63 68 65 64 20 62 79 20 | 74 68 69 73 20 70 72 6f |ched by |this pro|
|000015d0| 67 72 61 6d 2e 22 00 00 | 1e a6 09 84 22 57 6f 75 |gram."..|...."Wou|
|000015e0| 6c 64 20 79 6f 75 20 6c | 69 6b 65 20 74 6f 20 74 |ld you l|ike to t|
|000015f0| 72 79 20 61 67 61 69 6e | 3f 20 22 3b 41 24 00 22 |ry again|? ";A$."|
|00001600| 1e b0 09 ad e8 28 41 24 | 2c 31 29 d0 22 59 22 ce |.....(A$|,1)."Y".|
|00001610| e8 28 41 24 2c 31 29 d0 | 22 79 22 c4 32 30 35 30 |.(A$,1).|"y".2050|
|00001620| 00 2c 1e ba 09 ab 35 30 | 30 30 00 5a 1e c4 09 41 |.,....50|00.Z...A|
|00001630| 44 52 53 d0 31 32 39 31 | 38 3a b2 20 6c 6f 63 61 |DRS.1291|8:. loca|
|00001640| 74 69 6f 6e 20 6f 66 20 | 74 61 62 6c 65 20 77 69 |tion of |table wi|
|00001650| 74 68 69 6e 20 31 2e 39 | 00 60 1e 26 0a 3a 00 89 |thin 1.9|.`.&.:..|
|00001660| 1e 27 0a b2 57 72 69 74 | 65 20 74 68 65 20 6e 65 |.'..Writ|e the ne|
|00001670| 77 20 74 61 62 6c 65 20 | 6f 75 74 20 74 6f 20 74 |w table |out to t|
|00001680| 68 65 20 66 69 6c 65 00 | b6 1e 28 0a ba e7 28 34 |he file.|..(...(4|
|00001690| 29 2c 22 42 53 61 76 65 | 20 50 72 6f 44 4f 53 2c |),"BSave| ProDOS,|
|000016a0| 74 73 79 73 2c 61 24 33 | 30 30 2c 6c 37 2c 62 22 |tsys,a$3|00,l7,b"|
|000016b0| 41 44 52 53 00 c0 1e 32 | 0a ab 32 30 35 30 00 d6 |ADRS...2|..2050..|
|000016c0| 1e 88 13 ba e7 28 34 29 | 22 50 72 65 66 69 78 22 |.....(4)|"Prefix"|
|000016d0| 50 46 58 24 00 dc 1e 92 | 13 97 00 07 1f 9c 13 ba |PFX$....|........|
|000016e0| 22 51 75 69 74 20 74 6f | 20 28 42 29 41 53 49 43 |"Quit to| (B)ASIC|
|000016f0| 20 6f 72 20 28 50 29 72 | 6f 44 4f 53 20 70 72 6f | or (P)r|oDOS pro|
|00001700| 67 72 61 6d 22 00 1c 1f | a6 13 84 22 6c 61 75 6e |gram"...|..."laun|
|00001710| 63 68 65 72 3f 20 22 3b | 41 24 00 44 1f b0 13 ad |cher? ";|A$.D....|
|00001720| e8 28 41 24 2c 31 29 d0 | 22 50 22 ce e8 28 41 24 |.(A$,1).|"P"..(A$|
|00001730| 2c 31 29 d0 22 70 22 c4 | ba e7 28 34 29 22 42 79 |,1)."p".|..(4)"By|
|00001740| 65 22 00 65 1f ba 13 ad | e8 28 41 24 2c 31 29 d0 |e".e....|.(A$,1).|
|00001750| 22 42 22 ce e8 28 41 24 | 2c 31 29 d0 22 62 22 c4 |"B"..(A$|,1)."b".|
|00001760| 97 3a 80 00 76 1f c4 13 | ba e7 28 37 29 3b 3a ab |.:..v...|..(7);:.|
|00001770| 35 30 32 30 00 7c 1f 5f | ea 3a 00 9a 1f 60 ea b2 |5020.|._|.:...`..|
|00001780| 20 23 20 6f 66 20 64 61 | 79 73 20 69 6e 20 65 61 | # of da|ys in ea|
|00001790| 63 68 20 6d 6f 6e 74 68 | 00 c1 1f 6a ea 83 20 33 |ch month|...j.. 3|
|000017a0| 31 2c 32 38 2c 33 31 2c | 33 30 2c 33 31 2c 33 30 |1,28,31,|30,31,30|
|000017b0| 2c 33 31 2c 33 31 2c 33 | 30 2c 33 31 2c 33 30 00 |,31,31,3|0,31,30.|
|000017c0| dd 1f 74 ea b2 20 4e 61 | 6d 65 73 20 6f 66 20 64 |..t.. Na|mes of d|
|000017d0| 61 79 73 20 6f 66 20 77 | 65 65 6b 00 ff 1f 7e ea |ays of w|eek...~.|
|000017e0| 83 20 53 55 4e 2c 4d 4f | 4e 2c 54 55 45 2c 57 45 |. SUN,MO|N,TUE,WE|
|000017f0| 44 2c 54 48 55 2c 46 52 | 49 2c 53 41 54 00 29 20 |D,THU,FR|I,SAT.) |
|00001800| 88 ea b2 20 49 6e 66 6f | 72 6d 61 74 69 6f 6e 61 |... Info|rmationa|
|00001810| 6c 20 74 65 78 74 20 61 | 6e 64 20 69 6e 73 74 72 |l text a|nd instr|
|00001820| 75 63 74 69 6f 6e 73 00 | 55 20 92 ea 83 20 22 54 |uctions.|U ... "T|
|00001830| 68 69 73 20 75 74 69 6c | 69 74 79 20 61 6c 6c 6f |his util|ity allo|
|00001840| 77 73 20 79 6f 75 20 74 | 6f 20 70 61 74 63 68 20 |ws you t|o patch |
|00001850| 61 6e 22 00 7f 20 9c ea | 83 20 22 69 6e 74 65 72 |an".. ..|. "inter|
|00001860| 6e 61 6c 20 74 61 62 6c | 65 20 75 73 65 64 20 62 |nal tabl|e used b|
|00001870| 79 20 74 68 65 20 50 72 | 6f 44 4f 53 22 00 ab 20 |y the Pr|oDOS".. |
|00001880| a6 ea 83 20 22 54 68 75 | 6e 64 65 72 43 6c 6f 63 |... "Thu|nderCloc|
|00001890| 6b 20 64 72 69 76 65 72 | 2e 20 20 54 68 69 73 20 |k driver|.  This |
|000018a0| 74 61 62 6c 65 20 69 73 | 22 00 d6 20 b0 ea 83 20 |table is|".. ... |
|000018b0| 22 75 73 65 64 20 74 6f | 20 63 61 6c 63 75 6c 61 |"used to| calcula|
|000018c0| 74 65 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 79 |te the c|urrent y|
|000018d0| 65 61 72 22 00 00 21 ba | ea 83 20 22 66 6f 72 20 |ear"..!.|.. "for |
|000018e0| 64 61 74 65 2d 73 74 61 | 6d 70 69 6e 67 20 66 69 |date-sta|mping fi|
|000018f0| 6c 65 73 20 6f 6e 20 50 | 72 6f 44 4f 53 22 00 2b |les on P|roDOS".+|
|00001900| 21 c4 ea 83 20 22 64 69 | 73 6b 73 2c 20 73 69 6e |!... "di|sks, sin|
|00001910| 63 65 20 74 68 65 20 54 | 68 75 6e 64 65 72 43 6c |ce the T|hunderCl|
|00001920| 6f 63 6b 20 64 6f 65 73 | 22 00 5a 21 ce ea 83 20 |ock does|".Z!... |
|00001930| 22 6e 6f 74 20 72 65 74 | 75 72 6e 20 74 68 69 73 |"not ret|urn this|
|00001940| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 74 6f 20 | informa|tion to |
|00001950| 50 72 6f 44 4f 53 2e 22 | 00 89 21 d8 ea 83 20 22 |ProDOS."|..!... "|
|00001960| 54 68 65 20 74 61 62 6c | 65 20 6f 6e 6c 79 20 68 |The tabl|e only h|
|00001970| 6f 6c 64 73 20 73 65 76 | 65 6e 20 76 61 6c 75 65 |olds sev|en value|
|00001980| 73 2c 20 6f 6e 65 22 00 | b7 21 e2 ea 83 20 22 66 |s, one".|.!... "f|
|00001990| 6f 72 20 65 61 63 68 20 | 64 61 79 20 6f 66 20 74 |or each |day of t|
|000019a0| 68 65 20 77 65 65 6b 2e | 20 20 54 68 65 72 65 20 |he week.|  There |
|000019b0| 6d 75 73 74 22 00 e6 21 | ec ea 83 20 22 62 65 20 |must"..!|... "be |
|000019c0| 61 74 20 6c 65 61 73 74 | 20 6f 6e 65 20 79 65 61 |at least| one yea|
|000019d0| 72 20 64 75 70 6c 69 63 | 61 74 65 64 20 77 69 74 |r duplic|ated wit|
|000019e0| 68 69 6e 22 00 12 22 f6 | ea 83 20 22 74 68 65 20 |hin"..".|.. "the |
|000019f0| 74 61 62 6c 65 20 74 6f | 20 61 63 63 6f 75 6e 74 |table to| account|
|00001a00| 20 66 6f 72 20 74 68 65 | 20 69 6e 74 65 72 2d 22 | for the| inter-"|
|00001a10| 00 3c 22 00 eb 83 20 22 | 76 65 6e 69 6e 67 20 6c |.<"... "|vening l|
|00001a20| 65 61 70 20 79 65 61 72 | 2e 20 20 54 68 65 72 65 |eap year|.  There|
|00001a30| 66 6f 72 65 2c 20 74 68 | 65 22 00 69 22 0a eb 83 |fore, th|e".i"...|
|00001a40| 20 22 74 61 62 6c 65 20 | 6d 75 73 74 20 62 65 20 | "table |must be |
|00001a50| 75 70 64 61 74 65 64 20 | 61 74 20 6c 65 61 73 74 |updated |at least|
|00001a60| 20 65 76 65 72 79 22 00 | 95 22 14 eb 83 20 22 73 | every".|."... "s|
|00001a70| 69 78 20 79 65 61 72 73 | 20 74 6f 20 6b 65 65 70 |ix years| to keep|
|00001a80| 20 69 74 20 63 75 72 72 | 65 6e 74 2e 20 20 54 68 | it curr|ent.  Th|
|00001a90| 69 73 22 00 bf 22 1e eb | 83 20 22 75 74 69 6c 69 |is".."..|. "utili|
|00001aa0| 74 79 20 77 69 6c 6c 20 | 61 73 6b 20 79 6f 75 20 |ty will |ask you |
|00001ab0| 74 6f 20 65 6e 74 65 72 | 20 74 68 65 22 00 ed 22 |to enter| the".."|
|00001ac0| 28 eb 83 20 22 63 75 72 | 72 65 6e 74 20 64 61 74 |(.. "cur|rent dat|
|00001ad0| 65 20 61 6e 64 20 64 61 | 79 20 6f 66 20 74 68 65 |e and da|y of the|
|00001ae0| 20 77 65 65 6b 2e 20 20 | 49 74 22 00 1c 23 32 eb | week.  |It"..#2.|
|00001af0| 83 20 22 77 69 6c 6c 20 | 75 73 65 20 74 68 69 73 |. "will |use this|
|00001b00| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 74 6f 20 | informa|tion to |
|00001b10| 63 61 6c 63 75 6c 61 74 | 65 22 00 49 23 3c eb 83 |calculat|e".I#<..|
|00001b20| 20 22 74 68 65 20 65 6e | 74 72 69 65 73 20 74 6f | "the en|tries to|
|00001b30| 20 70 6c 61 63 65 20 69 | 6e 74 6f 20 74 68 65 20 | place i|nto the |
|00001b40| 74 61 62 6c 65 2e 22 00 | 78 23 46 eb 83 20 22 4e |table.".|x#F.. "N|
|00001b50| 65 78 74 2c 20 69 74 20 | 77 69 6c 6c 20 61 73 6b |ext, it |will ask|
|00001b60| 20 79 6f 75 20 74 6f 20 | 69 6e 73 65 72 74 20 61 | you to |insert a|
|00001b70| 20 64 69 73 6b 22 00 a1 | 23 50 eb 83 20 22 63 6f | disk"..|#P.. "co|
|00001b80| 6e 74 61 69 6e 69 6e 67 | 20 74 68 65 20 50 72 6f |ntaining| the Pro|
|00001b90| 44 4f 53 20 66 69 6c 65 | 20 74 6f 20 62 65 22 00 |DOS file| to be".|
|00001ba0| ce 23 5a eb 83 20 22 6d | 6f 64 69 66 69 65 64 2c |.#Z.. "m|odified,|
|00001bb0| 20 61 6e 64 20 61 73 6b | 20 79 6f 75 20 74 6f 20 | and ask| you to |
|00001bc0| 73 70 65 63 69 66 79 20 | 74 68 65 22 00 f8 23 64 |specify |the"..#d|
|00001bd0| eb 83 20 22 6c 6f 63 61 | 74 69 6f 6e 20 6f 66 20 |.. "loca|tion of |
|00001be0| 74 68 65 20 64 69 73 6b | 2e 20 20 54 68 65 20 50 |the disk|.  The P|
|00001bf0| 72 6f 44 4f 53 22 00 23 | 24 6e eb 83 20 22 66 69 |roDOS".#|$n.. "fi|
|00001c00| 6c 65 20 6d 75 73 74 20 | 62 65 20 65 69 74 68 65 |le must |be eithe|
|00001c10| 72 20 76 65 72 73 69 6f | 6e 20 31 2e 39 20 6f 72 |r versio|n 1.9 or|
|00001c20| 22 00 4d 24 78 eb 83 20 | 22 76 65 72 73 69 6f 6e |".M$x.. |"version|
|00001c30| 20 32 2e 30 2e 20 20 54 | 68 65 20 6c 6f 63 61 74 | 2.0.  T|he locat|
|00001c40| 69 6f 6e 20 6d 61 79 20 | 62 65 22 00 79 24 82 eb |ion may |be".y$..|
|00001c50| 83 20 22 73 70 65 63 69 | 66 69 65 64 20 61 73 20 |. "speci|fied as |
|00001c60| 65 69 74 68 65 72 20 74 | 68 65 20 76 6f 6c 75 6d |either t|he volum|
|00001c70| 65 20 6e 61 6d 65 22 00 | a7 24 8c eb 83 20 22 6f |e name".|.$... "o|
|00001c80| 66 20 74 68 65 20 64 69 | 73 6b 2c 20 6f 72 20 61 |f the di|sk, or a|
|00001c90| 73 20 69 74 73 20 73 6c | 6f 74 20 61 6e 64 20 64 |s its sl|ot and d|
|00001ca0| 72 69 76 65 22 00 d0 24 | 96 eb 83 20 22 6c 6f 63 |rive"..$|... "loc|
|00001cb0| 61 74 69 6f 6e 2e 20 20 | 54 68 65 20 75 74 69 6c |ation.  |The util|
|00001cc0| 69 74 79 20 77 69 6c 6c | 20 74 68 65 6e 22 00 fb |ity will| then"..|
|00001cd0| 24 a0 eb 83 20 22 70 72 | 6f 63 65 65 64 20 74 6f |$... "pr|oceed to|
|00001ce0| 20 77 72 69 74 65 20 6f | 75 74 20 74 68 65 20 6e | write o|ut the n|
|00001cf0| 65 77 20 74 61 62 6c 65 | 22 00 27 25 aa eb 83 20 |ew table|".'%... |
|00001d00| 22 65 6e 74 72 69 65 73 | 20 74 6f 20 74 68 65 20 |"entries| to the |
|00001d10| 66 69 6c 65 2e 20 20 57 | 68 65 6e 20 74 68 65 20 |file.  W|hen the |
|00001d20| 66 69 6c 65 22 00 52 25 | b4 eb 83 20 22 68 61 73 |file".R%|... "has|
|00001d30| 20 62 65 65 6e 20 75 70 | 64 61 74 65 64 2c 20 74 | been up|dated, t|
|00001d40| 68 65 20 75 74 69 6c 69 | 74 79 20 77 69 6c 6c 22 |he utili|ty will"|
|00001d50| 00 7d 25 be eb 83 20 22 | 61 67 61 69 6e 20 61 73 |.}%... "|again as|
|00001d60| 6b 20 79 6f 75 20 74 6f | 20 69 6e 73 65 72 74 20 |k you to| insert |
|00001d70| 61 20 64 69 73 6b 20 61 | 6e 64 22 00 a8 25 c8 eb |a disk a|nd"..%..|
|00001d80| 83 20 22 73 70 65 63 69 | 66 79 20 69 74 73 20 6c |. "speci|fy its l|
|00001d90| 6f 63 61 74 69 6f 6e 2e | 20 20 54 68 69 73 20 63 |ocation.|  This c|
|00001da0| 61 6e 20 62 65 22 00 d2 | 25 d2 eb 83 20 22 63 6f |an be"..|%... "co|
|00001db0| 6e 74 69 6e 75 65 64 20 | 66 6f 72 20 65 76 65 72 |ntinued |for ever|
|00001dc0| 79 20 64 69 73 6b 20 74 | 68 61 74 20 79 6f 75 22 |y disk t|hat you"|
|00001dd0| 00 fe 25 dc eb 83 20 22 | 77 69 73 68 20 74 6f 20 |..%... "|wish to |
|00001de0| 75 70 64 61 74 65 2e 20 | 20 57 68 65 6e 20 79 6f |update. | When yo|
|00001df0| 75 20 68 61 76 65 20 63 | 6f 6d 2d 22 00 2a 26 e6 |u have c|om-".*&.|
|00001e00| eb 83 20 22 70 6c 65 74 | 65 64 20 61 6c 6c 20 6f |.. "plet|ed all o|
|00001e10| 66 20 79 6f 75 72 20 64 | 69 73 6b 73 2c 20 70 72 |f your d|isks, pr|
|00001e20| 65 73 73 20 74 68 65 22 | 00 4f 26 f0 eb 83 20 22 |ess the"|.O&... "|
|00001e30| 45 53 43 20 6b 65 79 20 | 74 6f 20 65 78 69 74 20 |ESC key |to exit |
|00001e40| 74 68 65 20 75 74 69 6c | 69 74 79 2e 22 00 58 26 |the util|ity.".X&|
|00001e50| fa eb 83 20 22 22 00 00 | 00                      |... ""..|.       |
+--------+-------------------------+-------------------------+--------+--------+